Column

Niveles de confianza en instituciones politicas de

Column

Chart B

Chart C

---
title: "Confianza en las instituciones políticas en Europa"
author: "Wyndham Daniela"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}

# Configuración global para suprimir los warnings
knitr::opts_chunk$set(warning = FALSE, message = FALSE)

# Establecer el directorio raíz para todo el documento

setwd("C:/Users/Dell/Documents/M8-Reto2/Datos")

# Instalar paquetes necesarios (solo si no están instalados)
if(!require(flexdashboard)) install.packages("flexdashboard")
if(!require(tidyverse)) install.packages("tidyverse")
if(!require(maps)) install.packages("maps")
if(!require(DT)) install.packages("DT")
if(!require(shiny)) install.packages("shiny")

# Cargar librerías
library(flexdashboard)
library(tidyverse)
library(maps)
library(DT)
library(shiny)

# Verificar la ruta de trabajo actual
print(getwd())

# Listar archivos en el directorio actual para asegurarse de que el archivo está presente
print(list.files())

# Cargar el archivo CSV
file_path <- 'bd_depurada.csv'
datos <- read_csv(file_path)
print(datos)

```


Column {data-width=450}
-----------------------------------------------------------------------

### Niveles de confianza en instituciones politicas de 

```{r}
# Menú lateral para seleccionar el tipo de confianza
selectInput("tipo_confianza", "Selecciona el tipo de confianza:",
            choices = list("Confianza en los Partidos Políticos" = "Confianza_partidos_politicos",
                           "Confianza en el Parlamento" = "Confianza_parlamento",
                           "Confianza en los Políticos" = "Confianza_politicos"))
renderPlot({
  tipo_confianza <- input$tipo_confianza
  
  # Filtrar datos por países de Europa
  europa <- map_data("world", region = c("Austria", "Belgium", "Bulgaria", "Croatia", "Cyprus", 
                                         "Czech Republic", "Denmark", "Estonia", "Finland", "France", 
                                         "Germany", "Greece", "Hungary", "Ireland", "Italy", 
                                         "Latvia", "Lithuania", "Luxembourg", "Malta", "Netherlands", 
                                         "Poland", "Portugal", "Romania", "Slovakia", "Slovenia", 
                                         "Spain", "Sweden", "United Kingdom"))
  
  # Promediar los niveles de confianza seleccionados por región
  datos_promedio <- datos %>%
    group_by(Region_Geografica) %>%
    summarize(Confianza = mean(get(tipo_confianza), na.rm = TRUE))
  
  # Crear un dataframe de regiones para el mapa
  regiones <- data.frame(region = c("Austria", "Belgium", "Bulgaria", "Croatia", "Cyprus", 
                                    "Czech Republic", "Denmark", "Estonia", "Finland", "France", 
                                    "Germany", "Greece", "Hungary", "Ireland", "Italy", 
                                    "Latvia", "Lithuania", "Luxembourg", "Malta", "Netherlands", 
                                    "Poland", "Portugal", "Romania", "Slovakia", "Slovenia", 
                                    "Spain", "Sweden", "United Kingdom"),
                         Region_Geografica = c("Europa Occidental", "Europa Occidental", "Europa del Este", "Europa del Este", 
                                               "Europa del Sur", "Europa Central", "Europa del Norte", "Europa del Norte", 
                                               "Europa del Norte", "Europa Occidental", "Europa Central", "Europa del Sur", 
                                               "Europa Central", "Europa Occidental", "Europa del Sur", "Europa del Norte", 
                                               "Europa del Norte", "Europa Occidental", "Europa del Sur", "Europa Occidental", 
                                               "Europa Central", "Europa del Sur", "Europa del Este", "Europa Central", 
                                               "Europa Central", "Europa del Sur", "Europa del Norte", "Europa Occidental"))
  
  # Unir datos de confianza con regiones
  datos_regiones <- merge(regiones, datos_promedio, by = "Region_Geografica", all.x = TRUE)
  
  # Unir datos con mapa de Europa
  europa <- merge(europa, datos_regiones, by.x = "region", by.y = "region", all.x = TRUE)
  
  # Graficar el mapa
  ggplot(data = europa, aes(x = long, y = lat, group = group, fill = Confianza)) +
    geom_polygon(color = "white") +
    scale_fill_viridis_c(option = "C", na.value = "grey50") +
    labs(title = paste("Confianza en", gsub("_", " ", input$tipo_confianza), "en Europa"),
         fill = "Nivel de Confianza") +
    theme_minimal() +
    theme(legend.position = "bottom")
})



```

Column {data-width=550}
-----------------------------------------------------------------------

### Chart B

```{r}
datatable(datos %>% select(País, Confianza_parlamento, Género, Rango_Edad),
          options = list(pageLength = 10),
          caption = 'Nivel de Confianza en el Parlamento por País y Género')

```

### Chart C

```{r}

```